﻿Module Module1
  Sub Main()
    Console.WriteLine("Pagamento bollo " & _
        "di circolazione")
    Console.WriteLine("(A)uto, " & _
        "Auto(C)arro?:")
    Dim tipo As String = Console.ReadLine()
    Dim scelta As String = ""
    If tipo = "A" Then
      Console.WriteLine("kW di potenza:")
      Console.WriteLine("a - fino a 70")
      Console.WriteLine("b - da 71 a 100")
      Console.WriteLine("c - da 101 a 200")
      Console.WriteLine("d - oltre 200")
      scelta = Console.ReadLine()
      If scelta = "a" Then
        Console.WriteLine("Pagare " & _
            "150 Euro")
      ElseIf scelta = "b" Then
        Console.WriteLine("Pagare " & _
            "200 Euro")
      ElseIf scelta = "c" Then
        Console.WriteLine("Pagare " & _
            "250 Euro")
      ElseIf scelta = "d" Then
        Console.WriteLine("Pagare " & _
            "300 Euro")
      Else
        Console.WriteLine("Scelta " & _
            "non corretta")
      End If
    ElseIf tipo = "C" Then
      Console.WriteLine("Portata massima:")
      Console.WriteLine("a - fino a 35 q")
      Console.WriteLine("b - da 35 a 70 q")
      Console.WriteLine("c - oltre 70 q")
      scelta = Console.ReadLine()
      If scelta = "a" Then
        Console.WriteLine("Pagare " & _
            "100 Euro")
      ElseIf scelta = "b" Then
        Console.WriteLine("Pagare " & _
            "120 Euro")
      ElseIf scelta = "c" Then
        Console.WriteLine("Pagare " & _
            "150 Euro")
      ElseIf scelta = "d" Then
        Console.WriteLine("Pagare " & _
            "200 Euro")
      Else
        Console.WriteLine("Scelta " & _
            "non corretta")
      End If
    Else
      Console.WriteLine("Non hai " & _
          "inserito un tipo valido")
    End If
    Console.ReadLine()
  End Sub
End Module

